B1: Trong các hoạt động sau đây hoạt động nào là hoạt động lặp với số lần chưa biết trước:

A. tính tổng các số tự nhiên từ 1 đến 20.

B. Nhập các số nguyên cho đến khi đủ 50 số

C. Mỗi ngày tập TD 2 lần

D. Nhập dữ liệu từ bàn phím cho đến khi nhập xong dữ liệu khi dừng

B2: Đoạn lệnh sau đây in ra kết quả gì?
s:=0; while s<10 do begin s:=s+1;
Writeln(s); end;
A. In ra các số từ 1 đến 9.
B. In ra các số từ 1 đến 10.
C. In ra các số 1.
D. Không có đáp án đúng.

B3: Hãy cho biết đâu là đoạn lệnh lặp bằng câu lệnh While...do để tính tổng S=1+2+...+10?
A. S:=0; while i<10 do S:=S+i;
B. S:=0; i:=0; while i<11 do begin S:=S+i; i:=i+1; end;
C. S:=0; i:=1; while i do S:=S+i; i:=i+1;
D. S:=0; i:=0; while i<=10 do begin S:=S+i; i:=i+1; end;

Cho đoạn lệnh sau, hãy cho biết khi thực hiện, máy tính sẽ thực hiện bao nhiêu vòng lặp, hãy lập bảng giá trị của các biến i, T trong từng vòng lặp theo mẫu sau:
Ví dụ 1: i:=0; T:=10 while T>=0 do begin i:= i+3; T:=T-i; end;
Ví dụ 2: S:=0; i:=1; while i<=6 do begin S:=S+i; i:=i+2; end;
Ví dụ 3: s:=0; for i:=1 to 10 do s:=s+i;
Ví dụ 4: i:=0; T:=30; While T>=0 do  begin i:=i+2; T:=T-i; end;
ví dụ 5: i:=0; T:=1 while T<=25 do begin i:=i+1; T:=T+i; end;
Trả lời nhanh nhất có thể giúp mình ạ!!!!!!

Bài 1 : Cho S và i là biến nguyên. Khi chạy chương trình :

S:=0;

for i:=1 to 5 do S :=S +i;

writeln(S);

Kết quả in ra màn hình S là bao nhiêu ?

Bài 2: Tìm giá trị của S trong đoạn chương trình dưới đây:

S:=2;

For i:=1 to 5 do S:=S + i;

Bài 3: Hãy chỉ ra lỗi trong các câu lệnh sau đây:

1)X:=10; while X:=10 to X: X+5;

2) X:=10; while X = 10 do X=X+5

3) S:=0; n:=0; while S <= 10 do n:n+1 , S:= S+n;

( Giair chi tiết giúp mình với )

TỔ TOÁN-TIN MÔN: TIN HỌC 8

I. TRẮC NGHIỆM

Câu 1: Lệnh lặp nào sau đây là đúng?

a) For <biến đếm>= <giá trị đầu>to<giá trị cuối>do<câu lệnh>;

b) For <biến đếm>:= <giá trị đầu>to<giá trị cuối>do<câu lệnh>;

c) For <biến đếm>:= <giá trị cuối>to<giá trị đầu>do<câu lệnh>;

d) For <biến đếm>: <giá trị đầu>to<câu lệnh> do <giá trị cuối>;

Câu 2: Câu lệnh pascal nào sau đây là hợp lệ?

a) For i:=10 to 1 do write(‘A’); c) For i:=1.5 to 10 do write(‘A’);

b) For i= 1 to 10 do write(‘A’); d) For i:= 1 to 10 do write(‘A’);

Câu 3: Vòng lặp while ..do là vòng lặp:

a) Biết trước số lần lặp c) Chưa biết trước số lần lặp

b) Biết trước số lần <=100 d) Biết trước số lần là >=100

Câu 4: Câu lệnh lặp while…do có dạng đúng là:

a) While <đk> do; <câu lệnh>; c) While <đk> <câu lệnh> do;

b) While <câu lệnh> do <đk>; d) While <đk>do <câu lệnh>;

Câu 5: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :

s:=0; for i:=1 to 5 do s := s+i;

Kết quả cuối cùng của s là : a) 11 b) 55 c) 101 d) 15

Câu 6: Trong đọan chương trình pascal sau đây x có giá trị là mấy

Begin x:= 3 ; If (45 mod 3) =0 then x:= x +2;

If x > 10 then x := x +10 ; End.

a) 3 b) 5 c) 15 d) 10

Câu 7: Trong chương trình pascal sau đây:

var a, b :integer;

s,cv :real ;

begin a:= 10; b:= 5; s:= a*b ; cv:= (a +b ) * 2 ; end.

Biến s và cv có giá trị là mấy:

a) s = 10 ; cv = 5 ; c) s= 30 ; cv = 50 ;

b) s = 50 ; cv = 40 ; d) s = 50 ; cv = 30 ;

Câu 8: Sau khi thực hiện đoạn chương trình j:= 0; for i:= 1 to 3 do j:=j+2; thì giá trị in ra màn hình là? a) 4 b) 6 c) 8 d) 10

Câu 15: Thực hiện đoạn lệnh:

a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1;
Giá trị của t là: a) t=1 b) t=3 c) t=2 d) t=6

II. TỰ LUẬN

1) Nhập số tự nhiên n từ bàn phím, in ra các số chẵn từ 1 đến n và tổng của chúng?

2) Nhập số tự nhiên n từ bàn phím, in ra các số chia hết cho 5 từ 1 đến n và tổng của chúng?

3) Tính trung bình cộng của n số nguyên nhập từ bàn phím?

4) Tìm số lớn nhất trong dãy n số nguyên nhập từ bàn phím?

5) Sửa lỗi cho các câu lệnh Pascal sau:

a. For i=1 to 10 do s= s+i; b. While i:=5 do s:= s+i;

c. Var a:array[100..1] of real; d. If a>b; then max:=a;

6) Kẻ bảng thể hiện các câu lệnh lặp sau:

a. s:=0; b. s:=0; i:=10;

For i:= 1 to 20 do While i>0 do

If I mod 5=0 then s:=s+i; begin s:=s+i; i:=i-1end;

7) Sau khi thực hiện các đoạn chương trình sau, giá trị của biến s và biến i bằng bao nhiêu?

a. s:=1; b. s:=0; i:=0;

For i:= 1 to 5 do s:=s*i; While i<5 do begin i:=i+1; s:=s+i end;

8) Cho biết kiểu dữ liệu của biến a và b trong các đoạn chương trình sau:

a. a:= 0; b:=0;

while a<5 do begin a:=a+1; b:=b+1/a end;

b. b:=1;

For a:= 1 to 5 do b:=b*a;

Đề cương (tt)
Câu4: Viết cú pháp tổng quát câu lệnh While...do?Cách thực hiện câu lệnh như thế nào?Cho ví dụ?
Câu5: Thực hiện tính toán và cho biết kết quả S cuối cùng là bao nhiêu:
a)S:=0;n:=0
while S<=3 do begin n:n+1;S:= S+n end;
b) a:=0; b:=0; S:=0
while S<4 do S:=a+b
c)S:=1,a:=2,n:=0
while S<=3 do begin n:n+1,S:=n-a end;
Câu 6) Dữ liệu kiểu mảng là gì?Viết cú pháp tổng quát khai báo biến mảng và cho ví dụ?Câu khai báo biến mảng không chạy khi nào?